object DMAdresy: TDMAdresy
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 513
  Width = 605
  object ADQWojewodztwa: TADQuery
    SQL.Strings = (
      'select idWojewodztwa, chWojewodztwo '
      'from Wojewodztwa '
      'order by chWojewodztwo')
    Left = 44
    Top = 48
  end
  object ADQAdres: TADQuery
    SQL.Strings = (
      'select W.idWojewodztwa, W.chWojewodztwo'
      '     , P.idPowiatu, P.chPowiat'
      '     , G.idGminy, G.chGmina'
      '     , M.idMiejscowosci, M.chMiejscowosc'
      '     , U.idUlicykrs, U.chNumer, U.chNumerLokalu'
      '     , NU.idNazwyUlicy, NU.chUlica'
      'from Ulicekrs U'
      'inner join NazwyUlic NU on U.idNazwyUlicy = NU.idNazwyUlicy'
      
        'inner join MiejscowosciWGminach MG on U.idMiejscowosciWGminach =' +
        ' MG.idMiejscowosciWGminach'
      
        'inner join Miejscowosci M on MG.idMiejscowosci = M.idMiejscowosc' +
        'i'
      'inner join Gminy G on MG.idGminy = G.idGminy'
      'inner join Powiaty P on P.idPowiatu = G.idPowiatu'
      'inner join Wojewodztwa W on W.idWojewodztwa = P.idWojewodztwa'
      'where U.idUlicykrs = :id')
    Left = 44
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQidWojewodztwa: TADQuery
    SQL.Strings = (
      'select idWojewodztwa '
      'from Wojewodztwa '
      'where chWojewodztwo = :nazwa')
    Left = 44
    Top = 96
    ParamData = <
      item
        Name = 'NAZWA'
        ParamType = ptInput
      end>
  end
  object ADQPowiaty: TADQuery
    SQL.Strings = (
      'select * '
      'from Powiaty '
      'where idWojewodztwa = :id '
      'order by chPowiat')
    Left = 152
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQidPowiatu: TADQuery
    SQL.Strings = (
      'select idPowiatu '
      'from Powiaty '
      'where chPowiat = :nazwa '
      '  and idWojewodztwa = :id')
    Left = 152
    Top = 47
    ParamData = <
      item
        Name = 'NAZWA'
        ParamType = ptInput
      end
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQGminy: TADQuery
    SQL.Strings = (
      'select * '
      'from Gminy '
      'where idPowiatu = :id '
      'order by chGmina')
    Left = 227
    Top = 65534
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQidGminy: TADQuery
    SQL.Strings = (
      'select idGminy '
      'from Gminy '
      'where chGmina = :nazwa '
      '  and idPowiatu = :id')
    Left = 226
    Top = 48
    ParamData = <
      item
        Name = 'NAZWA'
        ParamType = ptInput
      end
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQMiasta: TADQuery
    SQL.Strings = (
      'select * '
      'from MiejscowosciWGminach MG'
      
        'inner join Miejscowosci M on MG.idMiejscowosci = M.idMiejscowosc' +
        'i'
      'where MG.idGminy = :id'
      'order by M.chMiejscowosc')
    Left = 354
    Top = 65534
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQidMiejscowosciWGminach: TADQuery
    SQL.Strings = (
      'select MG.idMiejscowosciWGminach, M.idMiejscowosci '
      'from Miejscowosci M'
      
        'inner join MiejscowosciWGminach MG on M.idMiejscowosci = MG.idMi' +
        'ejscowosci'
      'where chMiejscowosc = :nazwa'
      '  and MG.idGminy = :id')
    Left = 355
    Top = 49
    ParamData = <
      item
        Name = 'NAZWA'
        ParamType = ptInput
      end
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQNazwyUlic: TADQuery
    SQL.Strings = (
      'select distinct NU.idNazwyUlicy, NU.chUlica'
      'from NazwyUlic NU'
      'inner join UliceKRS U on NU.idNazwyUlicy = U.idNazwyUlicy'
      'where U.idMiejscowosciWGminach = :id'
      'order by NU.chUlica')
    Left = 40
    Top = 160
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQNumerWMiescie: TADQuery
    SQL.Strings = (
      'select * '
      'from numerWMiescie '
      'where idMiejscowosciWGminach = :idm'
      'order by chNumer, chNumerLokalu')
    Left = 40
    Top = 216
    ParamData = <
      item
        Name = 'IDM'
        ParamType = ptInput
      end>
  end
  object ADQUlice: TADQuery
    SQL.Strings = (
      'select * '
      'from UliceKRS '
      'where idMiejscowosciWGminach = :idm '
      '  and idNazwyUlicy = :idn'
      'order by chNumer, chNumerLokalu')
    Left = 40
    Top = 272
    ParamData = <
      item
        Name = 'IDM'
        ParamType = ptInput
      end
      item
        Name = 'IDN'
        ParamType = ptInput
      end>
  end
  object ADQidNazwaUlica: TADQuery
    SQL.Strings = (
      'select idNazwyUlicy '
      'from NazwyUlic '
      'where chUlica = :ulica')
    Left = 40
    Top = 336
    ParamData = <
      item
        Name = 'ULICA'
        ParamType = ptInput
      end>
  end
  object ADQAdresMiasto: TADQuery
    SQL.Strings = (
      'select W.idWojewodztwa, W.chWojewodztwo'
      '     , P.idPowiatu, P.chPowiat'
      '     , G.idGminy, G.chGmina'
      '     , M.idMiejscowosci, M.chMiejscowosc'
      '     , NwM.idNumerWMiescie, NwM.chNumer, NwM.chNumerLokalu'
      'from NumerWMiescie NwM'
      
        'inner join MiejscowosciWGminach MwG on NwM.idMiejscowosciWGminac' +
        'h = MwG.idMiejscowosciWGminach'
      
        'inner join Miejscowosci M on MwG.idMiejscowosci = M.idMiejscowos' +
        'ci'
      'inner join Gminy G on MwG.idGminy = G.idGminy'
      'inner join Powiaty P on P.idPowiatu = G.idPowiatu'
      'inner join Wojewodztwa W on W.idWojewodztwa = P.idWojewodztwa'
      'where NwM.idNumerWMiescie = :id')
    Left = 155
    Top = 160
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQAdresPoprzedni: TADQuery
    SQL.Strings = (
      'set forceplan on'
      'SET CONCAT_NULL_YIELDS_NULL Off'
      
        'select W.chWojewodztwo + '#39'; '#39' + P.chPowiat+ '#39'; '#39' + G.chGmina + '#39 +
        '; '#39' + m.chMiejscowosc + '#39'; ul. '#39' + NU.chUlica + '#39'; nr '#39' + U.chNu' +
        'mer + '#39'; lok. '#39' + U.chNumerLokalu as adres, Met.dtDataWpisu'
      'from Metryki Met '
      'inner join uliceKRS U on Met.idUlicyKRS = U.idUlicyKRS'
      'inner join Nazwyulic NU on U.idNazwyUlicy = NU.idNazwyUlicy'
      
        'inner join MiejscowosciWGminach MG on U.idMiejscowosciWGminach =' +
        ' MG.idMiejscowosciWGminach'
      
        'inner join Miejscowosci m on MG.idMiejscowosci = m.idMiejscowosc' +
        'i'
      'inner join Gminy G on MG.idGminy = G.idGminy'
      'inner join powiaty P on P.idPowiatu = G.idPowiatu'
      'inner join wojewodztwa W on W.idwojewodztwa = P.idwojewodztwa'
      
        'where (Met.dtDataWpisu < :Data or (Met.dtDataWpisu = :Data and M' +
        'et.chPublikator16 < :pub))'
      '  and Met.inKRS = :KRS'
      '  and Met.chPublikator like '#39'M.SiGKRS%'#39
      'union'
      
        'select W.chWojewodztwo + '#39'; '#39' + P.chPowiat+ '#39'; '#39' + G.chGmina + '#39 +
        '; '#39' + m.chMiejscowosc + '#39'; nr '#39' + NM.chNumer + '#39'; lok. '#39' + NM.ch' +
        'NumerLokalu as adres, Met.dtDataWpisu'
      'from Metryki met'
      
        'inner join Numerwmiescie NM on Met.idNumerwmiescie = NM.idNumerw' +
        'miescie'
      
        'inner join MiejscowosciWGminach MG on NM.idMiejscowosciWGminach ' +
        '= MG.idMiejscowosciWGminach'
      
        'inner join Miejscowosci M on MG.idMiejscowosci = M.idMiejscowosc' +
        'i'
      'inner join Gminy G on MG.idGminy = G.idGminy'
      'inner join powiaty P on P.idPowiatu = G.idPowiatu'
      'inner join Wojewodztwa W on W.idWojewodztwa = P.idWojewodztwa'
      
        'where (Met.dtDataWpisu < :Data or (Met.dtDataWpisu = :Data and M' +
        'et.chPublikator16 < :pub))'
      '  and Met.inKRS = :KRS'
      '  and Met.chPublikator like '#39'M.SiGKRS%'#39
      'order by Met.dtDataWpisu desc'
      'set forceplan off')
    Left = 152
    Top = 216
    ParamData = <
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end
      item
        Name = 'KRS'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end
      item
        Name = 'KRS'
        ParamType = ptInput
      end>
  end
  object ADQAdresyXML: TADQuery
    SQL.Strings = (
      'select A.*, M.chPublikator, M.idMetryki'
      'from AdresXML A'
      'inner join Metryki M on A.idAdresXML = M.idAdresXML'
      'where M.idMetryki = :id')
    Left = 407
    Top = 167
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQAdresXMLPoprzedni: TADQuery
    SQL.Strings = (
      'select A.*,'
      '       ISNULL(cast(A.chKraj as varchar),'#39#39') +'#39' '#39
      #9' + ISNULL(CAST(chJednostkaTerytorialna as varchar),'#39#39') +'#39' '#39' '
      '     + ISNULL(CAST(chWojewodztwo as varchar),'#39#39') +'#39' '#39' '
      '     + ISNULL(CAST(chGmina as varchar),'#39#39') +'#39' '#39' '
      '     + ISNULL(CAST(chPoczta  as varchar),'#39#39') +'#39' '#39' '
      '     + ISNULL(CAST(chNumer as nvarchar),'#39#39') +'#39' '#39' '
      
        '     + ISNULL(CAST(chKodPocztowy as varchar),'#39#39') as "AdresPoprze' +
        'dni"'
      'from Metryki M'
      'inner join AdresXML A on A.idAdresXML = M.idAdresXML'
      
        'where (M.dtDataWpisu < :data or (M.dtDataWpisu = :data and M.chP' +
        'ublikator16 < :pub))'
      '  and M.inKRS = :krs'
      '  and M.chPublikator like '#39'M.SiGKRS%'#39
      'order by M.dtDataWpisu desc')
    Left = 403
    Top = 231
    ParamData = <
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end
      item
        Name = 'KRS'
        ParamType = ptInput
      end>
  end
  object ADQZmienAdres: TADQuery
    SQL.Strings = (
      'update Metryki '
      '   set idUlicyKRS = :idu '
      'where idMetryki = :idm')
    Left = 152
    Top = 272
    ParamData = <
      item
        Name = 'IDU'
        ParamType = ptInput
      end
      item
        Name = 'IDM'
        ParamType = ptInput
      end>
  end
  object ADQZmienAdresMiasto: TADQuery
    SQL.Strings = (
      'update Metryki '
      '   set idNumerWMiescie = :idnm '
      'where idMetryki = :idm')
    Left = 152
    Top = 336
    ParamData = <
      item
        Name = 'IDNM'
        ParamType = ptInput
      end
      item
        Name = 'IDM'
        ParamType = ptInput
      end>
  end
  object ADQidUlicy: TADQuery
    SQL.Strings = (
      'select idUlicyKRS '
      'from UliceKRS'
      'where idMiejscowosciWGminach = :idmg'
      '  and idNazwyUlicy = :idnu'
      
        '  and (chNumer + '#39'/'#39' + chNumerLokalu = :lokal or (chNumerLokalu ' +
        'is null and chNumer = :lokal))')
    Left = 40
    Top = 384
    ParamData = <
      item
        Name = 'IDMG'
        ParamType = ptInput
      end
      item
        Name = 'IDNU'
        ParamType = ptInput
      end
      item
        Name = 'LOKAL'
        ParamType = ptInput
      end
      item
        Name = 'LOKAL'
        ParamType = ptInput
      end>
  end
  object ADQidNumerWMiescie: TADQuery
    SQL.Strings = (
      'select idNumerWMiescie '
      'from NumerWMiescie'
      'where idMiejscowosciWGminach = :idmg'
      
        'and (chNumer + '#39'/'#39' + chNumerLokalu = :lokal or (chNumerLokalu is' +
        ' null and chNumer = :lokal))')
    Left = 40
    Top = 432
    ParamData = <
      item
        Name = 'IDMG'
        ParamType = ptInput
      end
      item
        Name = 'LOKAL'
        ParamType = ptInput
      end
      item
        Name = 'LOKAL'
        ParamType = ptInput
      end>
  end
  object ADQZmianaAdresXML: TADQuery
    Left = 400
    Top = 288
  end
end
